:- multifile retangulo/3.
:- multifile posicao/4.
:- multifile parede/2.
:- multifile portao/2.
:- multifile cenario/2.
:- multifile carregando/3.
:- multifile transicaoVertical/4.
:- multifile transicaoHorizontal/4.
:- multifile transicaoPosicao/4.
:- multifile aberto/3.
:- multifile chave/2.
:- multifile calice/2.
:-dynamic([posicao/4]).
:-dynamic([carregando/3]).
:-dynamic([aberto/3]).

cenario(cenario12, roxa).
posicao(320, 0, cenario12, 0). %cenario12
retangulo(cenario12, 390, 193).

parede(par158, cenario12).%par158
retangulo(par158, 320, 17).
posicao(320, 0, par158, 0).
parede(par159, cenario12).%par159
retangulo(par159, 16, 160).
posicao(320, 17, par159, 0).
parede(par160, cenario12).%par160
retangulo(par160, 16, 160). 
posicao(624, 17, par160, 0).
parede(par161, cenario12).%par161
retangulo(par161, 128, 16). 
posicao(320, 177, par161, 0).
parede(par162, cenario12).%par162
retangulo(par162, 128, 16). 
posicao(512, 177, par162, 0).

transicaoVertical(tr73, 448, 193, cenario11).%tr73
posicao(448, 193, tr73, 0).
retangulo(tr73, 64, 8).

calice(calice). %calice
retangulo(calice, 16, 18).
posicao(414, 147, calice, 0).
carregando(calice, 0, 0).